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FOREWORD 


This docuemnt is the MOD3.16 Milestone 4 Design Specification for 
‘TMERGE, a routine within the Utility Routines of the ‘TUNITY System. It 
contains the engineering analysis and logical design for this routine. 

It is also a guide to the routine listing and should be used with the 
appropriate version of this listing. 

‘TMERGE is written in the JOVIAL J4 language and is designed to be 
run on the CDC 3800 with a two-bank core, using the SCF System IIB soft- 
ware exectitive monitor (SYMON). 





'TMERGE was generated as part of the ‘TUNITY: software development 
responsibilities under seniraet 
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1. INTRODUCTION © 


1.1. IDENTIFICATION 


Name: *TMERGE 
Author: J. B. Rininger 
A. A. Laferriere ; 


Date Documented: 31 July 1970 


1.2. PURPOSE 

‘TMERGE provides all routines in the ‘TUNITY software system with 
the capability to sort and merge long strings of data. Since 'TMERGE is 
a utility routine, an interface diagram is not appropriate. 
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2. DESCRIPTION 


'TMERGE has three entrances: the initialization entrance ('TMERGE), the data 
‘input entrance (‘TMIN), and the operation compTetion/output entrance (‘TMOUT). 


For each data string the using routine wishes to sort, a single call to the initial- 
ization entrance 'TMERGE must be made. The calling sequence of this.entrance provides 
the program with the following data: type of sort (BCI, numeric, or logical), number of 
sort keys per entry, number of words per entry, address of input area, address of output 
area, address of sort/merge buffer’, number of words in sort/merge buffer, and the number’ 
. of words in the I/0 record. This information initializes 'TMERGE and allows the user to 
begin processing data. oo 


The data input entrance ('TMIN) must be called once for each data entry. When a 
call is made, the entry to be input is transferred from the input buffer to the next 
empty position in the sort buffer. When the sort buffer is filled, the data is sorted 
and written as one file on the disc. The sort buffer can then accept more input data, 

as before. 


This input process continues as long as the user makes repeated calls to 'TMIN, 
When the user has input all of his data, he signals ‘TMERGE that the input process jis 
completed by calling the operation completion entrance ‘TMOUT. This call tells 'TMERGE 
that no more data will be input to the sort buffer, causes the data remaining in the 
buffer to be sorted and written as the last file on disc, and signals "TMERGE to BERTOM: 
any merge passes that may be necessary. 


~ To output the sorted data, the user must make repeated calls to 'TMOUT. Each call 
causes one record to be output. When all data has been output, 'TMOUT transmits an end- 
of-data flag to the user to signal that processing is completed. 


The 'TMERGE overview flow diagram is shown in Figure 4-1. 
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3. USAGE 
3.1 INPUT/OUTPUT 


3.1.1 Calling Sequence 


The calling sequences for the three entrances are as follows: 


Initialization 
"TMERGE (TYPE, .NKEYS, NWORDS, INBUF, OUTBUF, SORTBUF, BUFSIZ, RECSIZ) $ 
Data Input_ 
'TMIN (= ERRFLG) $ 
Data Output 
“'TMOUT (= EOFLG) $ 
where: 
BUFSIZ = Number of words in sort/merge buffer 


EOQFLG = End of file flag: . 
0 = More data to be retrieved 
1 = All data has been retrieved 


ERRFLG Input error flag: 


0 = No error 
1 = Error - no further input allowed 


INBUF = Address of input buffer 

NKEYS = Number of sort key words per entry 
NWORDS = Number of words per entry 

OUTBUF = Address of output buffer 

RECSIZ = Number of words in dise I/0 record 
SORTBUF = Address of éertymetae buffer 


TYPE = Type of sort: 
0 = BCI sort 
1 = Numeric sort 
2 = Logical sort 


3.1.2 Input/Output Parameters 


‘TMERGE inputs and outputs are listed in Table 4-1. 
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3.2 INTERNAL VARIABLES 

The internal variables used in 'TMERGE are listed in Table 4-2. 
3.3 INTERFACES . 

"TMERGE interfaces are described in Table 4-3. 
3.4 ERROR MESSAGES AND RECOVERY PROCEDURES 


Error messages and recovery procedures governing this routine are listed in Table 
4-4. These error mesSages are output via 'TERR. 


In addition, 'DERROR is called after each disc read and write to handle error 
procedures. 


3.5 INFORMATIONAL MESSAGES . 


Nohe. 
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Table 4-1. 'TMERGE Input/Output 


Element Table —_. Block 





Routine Set/Use Special Comments 





There are no formal inputs or outputs for this routine. AT] 1/0 is transferred through the calling sequence. 





i] 
> 
aa 
m 


nm 
“ 
ms 
4 
= 
> 
1. 
a4 
a 
> 
> 
vr 
Pp 
' 
~ 
oa 


L 





Approved for Release: 2017/02/22 CO5099069.,—~«—~*—“‘( C:C*~*# 


Approved for Release: 2017/02/22 C05099069 








RIF <4W-T30068°79 = 
PAGE B L/ Hx 
Table 4-2. Internal Variables 
JOVIAL - Engr. Internal are 
Symbol Symbol —«sUnits Peseriptton 
BLOCKBUF - n.d. Equivalent to SORTBUF 
BUFSIZ - n.d. Number of entries in sort/merge buffer to be sorted 
COMPARE ° - n.d. Table of sort key words 
ENTRIES - n.d. Number of entries in sort/merge buffer to be sorted 
EQOFILE - n.d. End-of-data indicator 
EOFLG > n.d. End of file flag: 


0 = more data to be retrieved 
] = all data has been retrieved 


ERRFLG = - n.d. Error flag: 


0 = no error has occurred 
1 = no further input allowed 


FILE é 


n.d. File number (item in FILETAB) 
FILETAB - n.d. File directory 
IMAX - nad. Number of words per entry ( 
IMAX]1 - n.d. IMAX - 1 : : 
INBUF - n.d. Address of input area where data to be sorted is placed 
Jd - n.d. " Entry.counter for sort/merge buffer 
Jud - n.d. Entry counter for blocking buffer 
JMAXM - n.d. Number of entries per record 
OMAXM] -— ned. UMAXM - J 
JMAXS - n.d. Number of entries that can be contained in sort/merge 

; buffer ; ; 
KKK - n.d. File counter for file directory 
KMAX - n.d. Number of files that can be processed per pass 
KMAX1 - n.d. KMAX - 1 . 
KMAXM - n.d. Number of records that can be contained in sort/merge 
buffer 

KMAXM] - n.d. KMAXM - 1 
LOCB - n.d. Sort/merge buffer location 
LOCM / n.d. Location of merge set up table (MERGSET) 
LOCBLK - n.d. Location of blocking buffer 
LOCBUF - n.d. Location of sort/merge buffer 
MAXWDS — - n.d. ‘Maximum available disc space in words 
MERGBUFF - n.d. Equivalent to SORTBUF 
NKEYS - n.d. Number of sort keys per entry 
NULLF - n.d. Empty file counter 
NWORDS - n.d. Number of words per entry 

n.d. Address of output area where sorted data is to bel =! 


OUTBUF : 
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_ Table 4-2. Internal Variables (Continued) 


JOVIAL — Engr. Internal 





Symbol — Symbo1 Units we Description 
OUTREC - _ nd, Output record counter 
PASSFLG = ond. =. Merge pass flag 
7% <v: 0 = intermediate merge 
] = final merge 
: 2 = initialize final merge 
RECORDS : n.d. Number of records per file (item in FILETAB) 
RECS © - n.d. Number of records per file 
RECSIZ - n.d. Number of words in disc 1/0 record 
RECSIZM - nd. Integral multiple of disc track size 
SORTBUF - n.d. Address of sort/merge buffer 
STATUS . - n.d. Status flag: 
; V(INIT) = initialization 
VCINTSORT) = internal sort 
VCINTMERG) = internal merge 
V(EXTSORT) = external sort 
V(EXTMERGE) = external merge 
V(EOF) = end-of-file 
TCODE 7 nid. - Sort type: 
1 = numeric sort 
2 = BCI or logical sort 
TEMI - n.d. 
TEM2 - n.d. 
TEM3” . n.d: Temporary cells 
TEM4 oo n.d. } 
TOTWDS - n.d. Cumulative words written on disc 
TRAKSIZ - . n.d. Disc track size 
TYPE - n.d. Type of sort: 


0 = BCI sort 
1 = numeric sort 
2 = logical sort 
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Table 4-3. Interfaces 
Routine - : , Purpose Reference 





'TMERGE CALLS THE FOLLOWING ROUTINES: 


"DERROR . Checks disc operations 2 
“'SDAHA Performs disc operations ] 
"SORT Sorts strings of data 1 
‘TERR Handles érror messages 1 
‘RELDIS To release disc space 1 

1 


"SABORT . ’ Redundant call to 'SABORT 
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Table 4-4. Error Messages 


Message Message Response 





No. Category Yes No Error Message - Description 
00. 5 - -  'TMOUT called but no data input _ + (a) Explanation: This message indicates that 
; : "TMOUT has been called before 'TMIN; i.e., 


the. entrances have been called in the wrong 
order. 


(b) Effect: This error is unrecoverable and 
- will immediately terminate processing via - 
"TERR. oy 
(c) Test Performed: If JJ EQ 0. 
(d) Reference: Figure 4-2, Sheet 6. 
(e) Error Cause: The error probably caused by 
incorrect coding of 'TMERGE entrances in 
- using routine 


(f) Gorrective Action: . Check use of 'TMERGE 
in using routine. 





ol 5 -' = Invalid cal] to 'TMIN , {a) Explanation: This message indicates that 
initialization for the input process either 
did not occur or was done incorrectly. 


(b) Effect: This error is unrecoverable and 
will immediately terminate processing via 
‘TERR. . : . 


(c) Test Performed: If STATUS NQ V(INTSORT) 
or V SORT). . 


(d). Reference: Figure 4-2, Sheet 3.. 

(¢) Error Cause: This error probably caused 
by improper call to initialization entrance 
C TMERGE) 
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Table 4-4. Error Messages (Continued) 


Message Message Response Error Message _ Description 


No. Category Yes No 





(f) Corrective Action: Check initialization 
Ca n using routine. 


02 5 - - Invalid cal] to 'TMOUT (a) Explanation: This message indicates that 
poe F 
inttiaitzation for the output process either 
did not occur or was done incorrectly. 


(b) Effect: This error is unrecoverable and 
will immediately terminate processing via 
‘TERR. : 

(c) Test Performed: If STATUS EQ V(INIT). 

(d) Reference: Figure 4-2, Sheet 5. 


(e) Error Cause: This error probably caused by 
improper call to initialization entrance. 


(f) Corrective Action: Check initialization 


call in using routine. 


03 5 - - Invalid input to 'TMERGE (a) Explanation: This message indicates that 
one or more 'TMERGE input parameters had 
invalid values (see Section 4.1) 





(b) Effect: This error is unrecoverable. and 
will immediately terminate processing via. 
"TERR. 

(c) Test Performed: All input parameters are 
tested against corresponding limits. 


SS . ———, 
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Table 4-4. Error Messages (Continued) 


. a . bi : 
Message Message Response Error Message - Description 


No. Category Yes No 
Er PS 


(d) Reference: Figure 4-2, Sheet 1. 


(é) Error Cause: This error probably caused 
by improper coding of initialization call 
in using routine. 


(f) Gorrective Action: Check initialization 
call in using routine. a 
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- 4, LIMITATIONS 


4.1 USAGE LIMITATIONS 
The following constraints are placed on the calling sequence parameters of ‘TMERGE: 

a. The sort type indicator must be between 0 and 2 inclusive. (O<TYPE<2) 

b. The number of sort keys specified must be either 1 or. 2. . (1<NKEYS<2) 

c. The number of words in the sort/merge buffer must be an integer multiple 
of the number of words. in the I/0 record. (BUFSIZ = n*RECSIZ where .n is 
an integer such that 3<n<40. The lower limit on n is set to 3 because 
the buffer must be at Teast large enough to allow the combining of two 
records into a (third) merged record. The upper limit is set to 40 
because, due to space and timing limitations, this number of records is 
the estimated maximum practical capacity of 'TMERGE.) 

d. The number of words in the I/0 record must be an integer multiple of the . 
number of words per entry. (RECSIZ = m*NWORDS where m is an integer 
such that m21) 

e. Only one type of sort (TYPE) can be made for a single Tela ization: 

4.2 DATA LIMITATIONS 


The amount of data that can be sorted using “MERGE is limited only by the amount 
of scratch disc space available. 


4.3 ACCURACY LIMITATIONS 
Not applicable. 

4.4 TIMING LIMITATIONS 
See Section 4.5 

4.5 SPACE REQUIREMENTS 


~ 'TMERGE will require 1,075 words of core storage and enough scratch disc storage 
to handle the input/output and work area requirements of the program. 


- the disc which can be stored at one time in the assigned buffer space. This number : is 
defined by 


cee, _ Number of words in sort buffer 
Number of Records = umber of words per record 


If the total number of files on the disc is such that 
Number of Records > Number of Files on disc, 


then only one pass will be required to merge all of the data. If, however, the number - 
.of files on disc is greater than the number of records in the pure the number of 
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In the case of a single-pass merge, the number of words of disc required will be | 
equal to the number of words in the data list. In the multiple-pass case, additiorial 
disc space will be required for intermediate merges. Thus, it is recommended that the 
using routine should attempt to make the ratio of the size of the sort buffer to the 
size of the I/0 record such that the merge can be achieved in a single pass. ‘This 
Single pass condition is achieved by setting the size of the sort/merge buffer such 
that: 


Size of _sort/merge buffer (words). 
Size of 1/0 record (words) = 


Total number of words tobe sorted/merged 
Size of sort/merge buffer (words 





This will minimize the disc space required and, in-addition, reduce the running time. 
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5. METHOD AND FLOW DIAGRAM 


5.1 INITIALIZATION 


To begin a sort or merge of long data strings, the using routine thus t first call 
the initialization entrance 'TMERGE. 


When this call is made, 'TMERGE checks the input parameters to make certain they 
have valid values.. (See Section.4.1). If one or more parameters are invalid, 'TMERGE 
calls ‘TERR to. print error message 03, and processing is terminated. If all parameters 
are.valid, 'TMERGE checks the size of the input record. If the input record is larger 
than the record size on disc (some integer multiple of the track size), the disc record 
is increased in size until it is at least as large as the input record. 'TMERGE then 
sets the status flag to indicate: an internal sort. 


'TMERGE next sets the sort-type and end-of-file flags. If the sort to be per- 
formed is a BCI sort, the sort-type flag, TCODE, is set to 2. If the sort is not BCI, 
the sort-type flag is set to the value specified by the TYPE parameter in the 'TMERGE 
calling sequence. If the sort-type is numeric, the end-of-file flag is set to a large 
numeric value [0(3777...7)]. If the sort is not numeric, the end of the file flag is 
set to 0(777...7). = 


After the flags have been set, 'TMERGE initializes the parameters used to maintair 
the file directory, FILETAB. -(FILETAB is a 100-entry table, two items per entry, con- 
taining the file number and number of records per file for each file.) The NENT of the 
file directory is set equal to the maximum number of records that.may be in the sort/ 
merge buffer, the variable JMAXS is set equal to the maximum number of entries per 
buffer, JMAXM is set to the maximum number of entries per I/0 record, and KMAXM is set 
equal to the maximum number of files that can be processed per merge pass. 


Once the file directory parameters have been initialized, 'TMERGE saves the. buffer 
locatioris. The location of the sort/merge buffer is stored in the variable LOCBUF, and 
the location of the blocking buffer is stored in LOCBLK. Finally, 'SDAHA is called to 
declare the files needed for the merging process, and control is returned to the callinc 


“poutine. 


5.2. DATA INPUT 


To begin processing data, the using routine must enter the data into the sort 
_ buffer by making repeated calls to the data input entrance ('TMIN). When a call to 
'TMIN is made, the program checks to make certain that the status flag, STATUS, is set 
to ‘indicate either an internal or external sort. If the status flag is not set to one 
of these modes, ‘TERR is called. to print error message 01, and processing is terminated. . 
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If the status flag has been set correctly, 'TMIN checks to see if the sort buffer 
is filled. If the buffer is not filled, 'TMIN transfers an entry from the input buffer 
to the sort buffer. If a BCI sort is indicated, (TYPE = 0), JOVIAL function BCI2SCD is 
called to convert the BCI sort keys to sortable code. After the call to BCI2SCD, or if 
that call was not necessary, the sort buffer entry counter JJ is incremented by 1, and 
control] returns to the calling routine. 


If the sort buffer is filled, ‘TMIN sets the variable RECS to equal the number of 
records in the sort/merge buffer, the variable ENTRIES equal to the number of entries in 
the sort/merge buffer, and then calls procedure GENFILE. GENFILE sorts the data in the 
buffer and writes the sorted data into.a single file on disc. 


After the call to GENFILE, 'TMIN sets the status flag to indicate an external sort - 
and interrogates the file counter to see if the number of files on disc is less than the 
maximum. If the number of files on disc is not less than the maximum, the parameters 
necessary to merge the files on disc are initialized and procedure ONEPASS is called to 

‘perform the merge. After the merge, the disc file counter is cleared. 


Once the files on disc have been merged, (or if the number of files on disc is less 
than the maximum), 'TMIN checks to make certain that the cumulative number of words 
written on disc does not exceed the maximum Space available. If the: maximum has been | 
exceeded, the error flag (ERRFLG) is set to 1 and control is returned to the calling 

‘routine. If the maximum has not been exceeded, the program branches back to transfer an 
entry from the input puNner: to the sort buffer, aEtEN which control is returned to the 
calling routine. 


‘TMIN is called and executed ree until al] input data has been entered 
into the sort buffer. To begin output procedures, a‘call to the output entrance ('TMOUT) 
must be made. , ; 


5.3 DATA OUTPUT 


When 'TMOUT- is called, a branch is made according to the value of the status flag 
(STATUS): If the status flag indicates an initialization operation (STATUS = V(INIT)), 
the call. to 'TMOUT has been made at the wrong time, creating an error condition. 'TERR 
‘is called to output error message 02 and to terminate processing. , 


If the value of the status flag indicates an internal sort (STATUS = V(INTSORT)), 

_ 'TMOUT checks to see if the number of entries in the sort buffer is zero. If the number. 
of entries is zero, error message 00 4s printed using 'TERR and processing is terminated. 
If the number of entries is not zero, thé parameter ENTRIES is set to equal the number of 
entries in the buffer, and procedure SORTEM is called to sort the entries. After the 
call to SORTEM, the status flag is set to indicate an internal merge (STATUS = V(INTMERG)), 

- and the sort buffer entry counter (JJ) is set to zero. 
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If the status flag indicates an internal merge (or if the sort operation in the 
last paragraph has been completed), 'TMOUT checks to see if all the sorted entries have 
been transferred to the output buffer. If all entries have been transferred, the end- 
of-data flag (EOFILE) is set to 1, and control] is returned to the calling routine. If 
all sorted entries have not been transferred to the output buffer, 'TMOUT transfers a 
sorted entry to the buffer. If a BCI sort/merge is being performed (TYPE-= 0), JOVIAL 
function BCI2SCD is called to convert the sort keys from sortable code back into their 
original BCI form. After the necessary conversion has been performed, the sort buffer 
entry counter JJ is incremented by 1, and control is returned to the calling routine. 


If the status flag indicates an external sort (STATUS = V(EXTSORT)), 'TMOUT 
initializes for a cal] to GENFILE by setting the parameter ENTRIES equal to the number 
of entries in the sort buffer and: by setting RECS equal to the number of records in the 
sort buffer. GENFILE.is then called to sort the data in the sort buffer and write the 
sorted data in one file on the disc. The status flag is then set to indicate an externa 
merge (STATUS = V(EXTMERG)) and the parameters needed to initialize procedure ONEPASS 
are set. ONEPASS is then called to merge the remaining files on disc into one file. 
Procedure MERGA is next called to perform the final merge pass. Control is then 
returned to the calling routine. | . 


If the status flag has a value which indicates an external merge. procedure MERGB 
is called to perform the merge, after which control is returned to the calling routine. 


Finally, if the status flag was previously set equal to V(EOF) by MERGB, the end- 
of-data flag EOFLG is set and control is returned to the calling routine. , 


A detailed flow diagram of 'TMERGE is shown in Figure 4-2. 
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BUFSIZ NQ N#RECSIZ. OR 
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Print error mes- 
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(N= INTEGER 





_¥ NO 
Set internal record 
size to nominal, 
value : 


TRAKSIZ=512 RECSIZM=TRAKSIZ | 














Set status flag | 
| to internal sort. 


Is the input record too 
large for the internal space \N 
allowed for it? 


“| STATUS = 1 
IS RECSIZ GR RECSIZM? | v (INTSORT) 
> = | YES 


Enlarge the internal 
-_ [space allowed for 
input. record 


RECSIZM=RECSIZM+TRAKSIZ 













Calculate area 
avaliable for 
buffer 


BUFSIZ=BUFSIZ-RECSI< , 
+ —. 






Set sort-type : 
flag 
no /Ts this a BC] sort? \ | TCODE = TYPE 
IS TYPE EQ 0? 
YES 


Set sort-type flag 
TCODE = 2 


eae Set EOF flag to | 
Ts this a numeric sort?\NO YES BCI Value : 
is TCobE = 1? EOFILE = 0(77...7) ; 


YES NO — . 





Set EOF flag to , 


numeric value _ 


EOFILE=0(377...7) ; 
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IMAX = ‘NWORDS | 
TMAX] = INAX - 1 
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that can be processed per 
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Store location of sort 
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LOCBUF = SORTBUF 
| LOCBLK = LOCBUF + BUFSIZ 


Set NENT of file directory 
NENT(FILETAB) = KMAXM 







scratch files to use 
for merge 
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- Calculate index 
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records in sort buffer — 
RECS = KMAXM 













Set ENTRIES to the number of Transfer entry from input 
entries in the sort buffer buffer to sort buffer 


“ENTRIES = JMAXS 
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Sort data in sort buffer 

rs write sorted data on 
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Is a BCI operation 
being performed? _ 


IS TYPE — 


=O? | 
YES . 
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‘Set status flag to indicate 
























external sort l y 
STATUS = V(EXTSORT) ee ee 
EN TEM] = I * JMAXS+ JJ 
Clear entry counter, add 1 to | BC12SCD 
file counter l Convert sort key to sortable code: 
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_BCI2SCD(0, INBUF($I$)) $ 
END I 
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Initialize parameters. for 
call to ONFPASS 


KMAX = KMAXM, RECS = KMAXM* © 
KMAXM, LOCM = LOC(FILETAB) 























ONEPASS 


‘| Merge KMAXM files into } 
one file on disc 


Clear file counter 
KKK = 0 


Calculate cumulative words 
written on disc —_ 


TOTWDS = TOTWDS+RECS*RECSIZ 






TMINO. eo: 

Has the maximum number 
of words on disc been 

_ exceeded by 'TMERGE? 
\.IS TOTWDS GQ_MAXWDS? 
YES 


Set error flag 
_ ERRFLG = 1 










RETURN 
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STATUS = V(INTMERG) 
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STATUS = V(EXTMERG) 
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STATUS = V(EOF) 










TMOUT1. 


i Print error 
; Message No. 2 





RETURN 
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SORTEM 


Sort entries in 
sort buffer 
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internal merge mode 
STATUS = V(INTMERG 












Clear sort buffer 
j}entry counter 








Have all sorted entries 
been retrieved? =, 
\—sT'S. dd. EQ ENTRIES? 









Set end of data 
.| flag 


EOFLG = 1 


RETURN 
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TEM] = OMAXS*I + J 


Transfer one sorted entry to 
output buffer © 


OUTBUF ($I1$) = SORTBUF($TEMT$) 














Is a BCI operation 
being performed? 


_.. IS TYPE =0?. 








NO 


CALCULATE INDEX 
TEM] = I * JMAXS + JJ 











Convert. sort key to BCI: 


OUTBUF ($TEM1$) = 
BCI2SCD(1 ,OUTBUF($1$)) $ 










Add 1 to sort buffer entry 
counter | 
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TMOUT6. 


Set end of data flag 
EOFLG =.1 





RETURN 
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entries in sort buffer 


ENTRIES = Jd 
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in sort buffer 
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Find difference between calculated 
- and actual entry count 
TEM] = RECS*JMAXM-ENTRIES 
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| record count 
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Is actual entry count different 
from calculated count? 
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Set status flag to indicate ~ 
: external merge 


STATUS = V(EXTMERG) 
















ters for call to 
ONEPASS 

- KMAX = KKK+1, LOCM = LOC 
(FILETAB) ,. RECS = RECS* 
KMAXM * KKK 


Set parame 














ONEPASS 
Merge remaining files into a 
‘single file on disk © 


Perform intermediate merge 
passes 






TMOUT5 —_ “<a 
MERGB(LOCM) © 
> Perform final merge pass 


RETURN 
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7. CLOSED SUBROUTINES 





This section describes in detail the procedures, closes and JOVIAL functions 
employed by 'TMERGE. They are presented in alphabetical order. 


7.1 BCI2SCD 
7.1.1 Identification 
Name: ‘MOVIAL Function BCI2SCD 
Author: J.B. Rininger 
Date Documented: 31 July 1970 
7.1.2 Purpose 
This JOVIAL function is used to convert BCI data to sortable code, or to convert 
sortable code to BCI data. 
7.1.3 Usage 
JOVIAL function BCI2SCD is called Eran. 'TMIN, 'TMOUT, and procedure MERGB. The 
calling sequence is as follows: 
BCI2SCD(FLAG,WORD) $ 
where 


FLAG = conversion type indicator 


0 = BCI to sortable code 
1] = sortable code to BCI 


WORD = the single word to be converted 
7.1.3.1 Input/Output 


The input to BCI2SCD consists of the conversion type code and the word to be con- 
verted. (All input to BCI2SCD comes from the calling sequence.) . 

The output of BCI2SCD consists of the input word converted according to the value 
of the conversion type code. 
7.1.3.2 Internal Variables 

The internal variables used in BCI2SCD are as follows: 


JOVIAL Interna] 
$ymbo] Units Description 


BCI2SCD n.d. Converted data 
FLAG n.d. Conversion flag 
TEMP n.d. Temporary cell, used to hold each byte of the input word as 
it is being processed 
WORD n.d. Input data 
7.1.3.3 Error Messagés and Recovery Procedures 
None. 
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7.1.4 Method and Flow Chart 





When a call to BCI2SCD is made, if FLAG jis equal to 0 (indicating BCI to sortable 
code conversion), a 1 is added to each BCI character except "blank" or "60," which fs 
changed to "00." 


If FLAG is equal to 1 (indicating a sortable code to BCI conversion), 1 is sub- — 
tracted from each byte unless the byte contains "00," which is changed to "60." 


‘ A detailed flow diagram of BCI2SCD is shown. in Figure 4-3, 
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Is the conversion from 
sortable code to BCI? 


Is FLAG = 1 






\NO 







FOR I=0,1,7 SCD2BCI. 






Set temp. to sus) the Ith 
BYTE in the word to be 
converted 


TEMP = BYTE(SI$) (WORD) 

















Is the BYTE equal to 0? 
Is TEMP = 0? 












set the BYTE equal to an 
octal blank 


BYTE ($1$) (BCI2SCD)= 0(60) 


FOR I50,1,7 


Set temp to equal the Ith 
BYTE in the word to be 
converted 


TEMP = BYTE($I$ (WORD 


<Ts the BYTE an octal Ss, 
blank? jue \NO__| Add 1 to the BYTE 


| 
| 

| 

| 

| 

| Is TEMP = 0(60)? BYTE($I)(BCI2SCD) = TEMP+1 
YES 

| 

| 

| 

| 

| 

| 


Set the BYTE equal to zero 
BYTE($1$)(BCI2SCD) = | 


(RETURN ‘ 
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Figure 4-3. BCI2SCD Detailed Flow Diagram (Sheet 1 of 1) 
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7.2 GENFILE 
7.2.1 Identification 


” Name: Procedure GENFILE 
Author: Jd. Bs Rininger . 
A. A. Laferriere = 
Date Documented: 31 July 1970 


7.2.2 Purpose 
This procedure is used to generate a file of sorted data on the disc. 
7.2.3 Usage 
Procedure GENFILE is called from 'TMIN and 'TMOUT. The calling sequence is as. 
follows: : , 


GENFILE $ 
7,2:3.1. Input/Output 


The input to GENFILE consists of the array of data to be sorted and filed, and 
the number of entries in the array. 


, The output of GENFILE is a table specifying file number andi number of records 
in ‘the: new file. 
7.2.3.2 Internal Variables 
| . None 
7.2.3.3 "Error Messages and Recovery Procedures 


None’ 


' 7.2.4 Method and Flow Chart 


A call to GENFILE first causes the specifications for the new file to be written 
to be entered into the file table (FILETAB). Procedure SORTEM is then called to sort 
“the entries in the sort/merge buffer. The sorted entries are then transferred to the 
blocking buffer (BLOKBUF), which is in turn written into the new file on disc. If the 
- sort buffer is empty (i.e., if all sorted entries fit into the blocking buffer), contro 
returns to the calling routine. If the sort buffer stil] contains data, GENFILE begins 
the transfer to the blocking buffer again, and writes another file on disc. This pro- 
cedure continues until the sort buffer is empty. 


A detailed flow diagram of GENFILE is shown in Figure 4-4, 
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SORTEM 
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hay ~ GENFILA gh 

Null entry counter for BLOKBUF 
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is _GENFIL2.. «ss 


Compute address of next available slot in BLOKBUF | 





| Compute address of word to be transferred to BLOKBUF | 
— ~TEM2 = I*JMAXS + Jd_ 





| Transfer one. entry from SORTBUF TO BLOKBUF : 


| BLOKBUF(I + TEM]) = SORTBUF(TEM2) 


| END I 


— — — — _ —_— — —_—_—_> —_—_ — S| —_—_ — — eee 
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Figure 4-4. GENFILE Detailed Flow Diagram (Sheet 1 of 3) 
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GENFILE : GENFILE 


Increment entry counters 


= JJ +1, ddd = dd +1 


{dd 
Is BLOKBUF full? 
, IF JJJ EQ JMAXM 


NO 


“Is SORTBUF empty? He vfs» ae 
IF Jd GQ ENTRIES - 


YES 





y YES 22 
Terminate BLOKBUF with end-of-file 


BLOKBUF(TEM1) = EOFILE where 
TEM] = BUFSIZ + IMAX*JJJ 


= 


> GENFILE3._ 
) 


"SDHWRT(SH(MERGE), LOCBLK, RECSIZ, KKK, OUTREC 
Write BLOKBUF onto the new file on disc 





_ "DERROR(7H('TMERGE) 
Check status of 1/0 operation , 


Figure 4-4. GENFILE Detailed Flow Diagram (Sheet 2 of 3) 
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GENFILE : GENFILE 





: Increment output record counter | 
_OUTREC = OUTREC + 1 












Ts SORTBUF empty? 
| IF JJ GQ ENTRIES 


RETURN 


"Figure 4-4. GENFILE Detailed Flow:Diagram (Sheet. 3 of 3) 
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7.3 MERGA 
7.3.1 Identification 


Name: ' Procedure MERGA 
Author:. J.B. Rininger 
Date Documented: 31 July 1970 
7.3.2 Purpose 


This procedure sets up the logic necessary for a multiple pass merge. A iultiple 
pass merge is necessary when the number of files on disc is greater than the number of 
records that will fit in the buffer area. 


7.3.3 Usage 7 
Procedure MERGA is called from 'TMOUT. The calling sequence is a For ions 
MERGA $ 
7.3.3.1 Input/Output 
The input to MERGA consists of the file directory table generated in GENFILE. 


_The output of MERGA is the merge setup table (MERGSET), the merge pass mode flag | 
(PASSFLG), the number of entries in the merge setup table (KMAX), and the new. file 
number for the merged data (KKK). 


7.3.3.2 Internal Variables 


The internal variables used in MERGA are as follows: 


JOVIAL ‘Internal 

Symbo] Units Description 

Jd n.d. Entry counter for each record array 

K n.d. File counter for merge setup table 

FILE n.d. Number of records per file 

MERGSET n.d. Table of files to be merged 

RECORDS n.d. Number of records per file (table item) 
RECS ond. Number.of records in file currently being 


processed (array) 
T n.d, Directory file counter 
7.3.3.3 Error Messages and Recovery Procedures 


The dise error check routine 'DERROR is called after each disc write Cc SDAHA call) 
to handle error procedures. 


7.3.4 ‘Method. cand Flow. Chart 7 


When a call to MERGA is made, the file directory FILETAB is searched for unmerged 
files. Unmerged files are transferred: from FILETAB to the merge setup table MERGSET. 
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The one-pass merge procedure ONEPASS is then ‘called to merge the files in MERGSET. The 
new file created by ONEPASS ‘is added to the file directory. This search-merge sequence 
is continued until all files specified in the directory have been merged. 


A detailed flow diagram of MERGA is shown in Figure 4-5, 
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Figure 4-5. MERGA Detailed Flow Diagram (Sheet 1 of 2) 
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7.4 MERGB 
7.4.1 Identification 


Name: Procedure MERGB 


Author: J. B. Rininger 
A. A. Laferriere 


Date Documented: 31 July 1970 
7.4.2 Purpose 


This procedure merges a prescribed number of sorted files from the disc. The merged 
data can either be stored in a single file on the disc or transmitted, one entry per call, 
to an output buffer. a? 


7.4.3 Usage 


Procedure MERGB is called from ‘TMOUT and ONEPASS.- The calling sequence is ae 
follows: : 
MERGB(LOCM) $ 
where ; ; 
LOCM = address of the merge setup table MERGSET. 


-7.4.3.1 Input/Output 


The input to MERGB consists of the merge pass mode flag (PASSFLG), the table list- 
ing the order and the number of files to be merged in one pass (MERGSET), thé number of 
files listed in MERGSET (KMAX), and the number of the new file for merged data (KKK). 

In addition, the address of the merge setup table is passed through the MERGB calling 
sequence. 


When the merge pass mode flag is equal to 0, the output of MERGB is one file on 
disc consisting of the merge of all files listed in the merge setup table. When the 
merge pass mode flag is equal to 1, the output is one sorted entry per call to MERGB. 


7.4.3.2 Internal Variables 


The internal variables used in MERGB are as follows: 


JOVIAL Internal 

Symbo] Units. Description 

COMPARE. n.d. Table of temporary cells for sort keys 
ae n.d. Temporary cells, used to hold sort key words 
MERGSET n.d. ' Table of files to be merged 

REC n.d. Record counter for each file array 

XXX1. . - 
at n.d. Items overlayed on DUMMY] and DUMMY2 


YYY2 
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7.4.3.3 Error Messages and Recovery Procedures - 
The disc error check routine 'DERROR is called after each disc I/0 operation 
('SDAHA call) to handle error procedures. 


7.4.4 Method and Flow Chart 


When a call is made to procedure MERGB, a record from each file specified in the 
merge setup table MERGSET is read into the merge buffer. If the "final pass” mode is 


in effect (pass mode flag PASSFLG = 1), the entry from the merge buffer MERGBUF with the 
lowest index value is transferred to the output buffer OUTBUF each time the using rou- 
tine calls ‘TMOUT. (If TYPE is equal to 0, indicating a BCI operation is being performed, 
function BCI2SCD is called to convert the sort keys to BCI before the entry is output, )} 
When a record for any file is depleted, a new record from that file is read into the 


merge buffer. This process is continued until all entries are output. 


If the merge is in the "intermediate pass mode" (pass mode flag = 0), the files in 
the merge setup table are merged and written onto the disc ina single file via the 
blocking buffer BLOKBUF. The new file is then listed in the file directory FILETAB for 
the next pass. 


A detailed flow diagram of MERGB is shown in Figure 4-6, _ ( 
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Set flag for final pass entrance 
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Test the status of the read operation 
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cod 


MERGB 


2A 


MERGBO. 


Null pointer to sane with Towest valued 
enbry jn MERGBUF 1=0 












Compute address of active entries in ; 
planes K] and K of MERGBUF 


TEML = IMAX*(JMAXM*K1. + Jd 
TEM2 = IMAX*(JMAXM*K + Ju( 






(K1)) 
K)) 
FOR I = Q, 1, NKEYS - 1 





Store key words in temporary cells 


nureiy1(0) = MERGBUF(I + TEM1) 
DUMMY2 (0 = MERBEUF LT + TEM2) 





NO. 
" “IF TCODE EQ 2° 
YES 


"Get first 47 bits of each key word _ 


~ TEM3 = -XXX1 3 
TEM4 = YYY1(0 





~ Compare key words . 


\ “TF TEM3 GR TEMS 2 O 


| 

: 

| 

| 

| 

| 

| 

| 

| 

| . _vEs sud 
| Ea Tl jest bit of k y word 
| 

| 

| 

| 

| 

| 

| 


YES IF XXx2(0) LQ Y¥¥2(0) 
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Figure 4-6. MERGB Detailed Flow Diagram (Sheet 2 of 6) 
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CERDET / 


MERGB | fgg NL 8S MERGB 


YES ; Are the signs equal? 
| If SIGNBIT1($0$) EQ SIGNBIT2($0$) 
7 NO. 











Is word 1 negative? 
SIGNBIT] ($0$) E $ 





~ | YES 





“Ts word 1 bigger than word 2? 
If DUMMY($0$) GR DUMMY2($0$) 





=a) 
| ENO 7 
__Is word 2 bigger than word 1? YES | 
_1f_DUMMY2($0$) GR_DUMMY1 ($0$ \i/ 
| NO | | 
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MERGB1. : Nts 
Plane K has lowest valued entry so far 
KL K 












Compute address of lowest entry _ 
~TEML = IMAX*(JMAXM*K1 + Jd(K1)i 





Is this an intermediate pass? _ ONO. -2 4h 
IF PASSFLG EQ 0 


| yes 
Address of next available slot in BLOKBUF 






Increment output record counter and 
null entry counter for BLOKBUF 


ddd = I + 1 ; 18) 


Figure 4-6. MERGB Detailed Fiow Diagram (Sheet 4 of 6) 
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MERGB2. 2 
“Is the entry an end-of-data indicator? 


; IF MERGBUF (TEM1) EQ EOFILE A 


YES 


_ Set end of file flag and status flag 
"EOFLG = 1, STATUS = V(EOF) 





NO 









RETURN 


FOR I = 0, 1, IMAX1 


Transfer entry into output buffer | 
-QUTBUF(I) = MERGBUF(I. + TEM1) 


Cae ea ee ae ee oe 
| . | 
| | 

| 


NO Is a BCI operation \. 
being performed? 
: IS TYPE = 0? 


FOR I = 0, 1, NKEYS -1 | YES 


BCI2SCD 
Convert sort key to BCI: 
SORTBUF($TEMI$) = : 
Bc12S¢cD(1, 











| | 
| 

' |. 
| or | 
| | 
| | 





MERGBUF ($1+TEM1$) 


__ MERGB3, 
\ YES Ey 
EQ -IMAXM] a: : 


NO 










If Jd(K1) 


-| Increment entry counter for plane Kl 
» MERGB4. : 
Is this an intermediate pass? 


IF PASSFLG EQ 0 
YES 


Gy FIND NEXT ENTRY 


: Figure 4-6. MERGB Detailed Flow Diagram (Sheet 5 of 6) 


_39(K1) = 99 (K1) + 1 
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MERGB MERGB 


MERGBS . 


Null entry counter for plane Kl of MERGBUF 


—._ du(Kl) =.0 


Increment record counter for file Kl. 
~ REC(K1) = REC(K1) + 1 













“Any records left in File KI? 

IF .REC(K1) LS RECORDS (Ki) 
i NESe ee. 2 
-|__Address of plane KI of MERGBUF 
[Lock = LOcBUF + RECSIZ*K1 


"SDARD(SH(MERGE), LOCB, RECSIZ,,, FILE(KI), REC(K1)) 


Read a record from file. K] “into plane kl of MERGBUF : 


NO 








“DERROR(7H('TMERGE)) 
Check status of read operation . 








MERGB6. 
‘Increment. empty file counter. 
 NULLF = NULLF + 1. 












Are all files for this pass merged? 
IF NULLF EQ KMAX 
| No 









p{ RETURN 





“Store end of data indicator into key 
~-word at beginning of plane Kl 


~ MERGBUF(TEM2): = EOFILE 
where TEM2 = K1*IMAX*JMAXM 













Figure 4-6. MERGB Detailed Flow Diagram (Sheet 6 of6 ) 
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7.5 ONEPASS 
7.5.1 Identification 
Name: Procedure ONEPASS 

Author: . J.B. Rininger 

Date Documented: 31 July 1970 
7.5.2 Purpose is 

This procedure initializes and makes a call to the merge procedure MERGB. 

7.5.3 Usage 


Procedure ONEPASS is called from 'TMIN, 'TMOUT, and MERGA. This calling sequence 
is as follows: 


ONEPASS _ $ 


7.5.3.1 Input/Output 


The input. to ONEPASS consists of the number of files to be merged (NENT(FILETAB)) 
and the file directory (FILETAB). 


T J . oan The output of ONEPASS is the updated file directory FILETAB. 
. 7.5.3.2 Internal Variables 


ae None 7 
. 7.5.3.3 Error Messages and Recovery Procedures 


After each call to 'SDAHA, ONEPASS calls the disc error. check routine 'DERROR to 
handle error procedures. 


7.5.4 Method and Flow Chart 


When a.call is made to ONEPASS, the parameters required by the merge procedure are 
set, and the NENT of the file directory is incremented by 1. 'SDAHA is then called to 
declare a new file; and finally MERGB is called. 


A detailed flow diagram of ONEPASS is shown in Figure 4-7. 


SECRET Hx 


- Approved for Release: 2017/02/22 CQ5099069 


Approved for Release: 2017/02/22 C05099069 


PTE eb rel Bi Anke79 


Pace Sh - iz 
‘ONEPASS . , SEGREL/ Hx vw AS 
ONEPASS 















"Null pass mode ‘flag 
-PASSFLG = 0 







Set. file counter - 
_| KKK = NENT(FILETAB). 


Update FILETAB 


FILE (KKK) = KKK 
RECORDS(KKK) =. RECS 













__ Declare a new file 





] ‘DERROR(7H( 'TMERGE) ) 
Check status of 'SDAHA 


MERGB (LOCM) \ 
Call merge procedure 


RETURN . 





Figure 4-7. Onepass Detailed Flow Diagram (Sheet 7 of 1) 
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7.6 .SORTEM 
7.6.1 Identification 


Name: Procedure SORTEM 


Author: J. B. Rininger 
-A. A. Laferriere 


Date Documented: 31 July 1970 
7.6.2 Purpose 


This procedure sets up the logic necessary to perform a double sort on the data 
stored in the sort buffer. 


7.6.3 Usage 


Procedure SORTEM is called from 'TMOUT and GENFILE. The calling sequence is 
as follows: 


SORTEM $ 


7.6.3.1 Input/Output -_ 

The input to SORTEM consists of the number of sort key words per entry, the array 
of data to be sorted, the number of entries in the array to be sorted, and the eyes of 
sort to be performed. . 


The output of SORTEM is the array of sorted data. 


7.6.3.2 Internal Variables 
_ The significant internal variables used in SORTEM are as follows: 


JOVIAL Internal 

Symbol Units Description 

v1 n.d. ‘Key word index 

v2 ; n.d. Key word index 

LOCTAB n.d. Pointer for parallel sort 

PTAB : nd. Pointer table for parallel sort 
7.6.3.3 Error Messages. and Recovery Procedures 

None. 


7.6.4 Method and Fiow Chart. 


When a call is made to SORTEM, the data in the sort merge buffer is sorted on the 
first key word of each entry. SORTEM next examines the parameter containing the number 
of sort keys (NKEYS). If NKEYS is equal to "1," the procedure is ‘exited. If NKEYS is 
equal to "2," a minor sort. is performed on the second key word of each entry. 


A detailed flow diagram of SORTEM is shown in Figure 4-8. 
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RTF edWeT3O0KR=79 
PAGE 5? 
SORTEM r 
SORTEM 
Compute NENT of pointer table PTAB 
; NENT(PTAB) = IMAX1 
FOR I = 0, 1, 
in 


Sort SORTBUF on first key word 
Is. there. ‘7 
; only one key? p> RETURN ) 

. NKEYS = 17. + 
NO -- = ae 





_Initialize two key word indices | 
ie Ea a eee 


) = sorTem) dS — . ( 


Increment index J2 ~ 
-J2 = 02 +1 Ml te 





_- Is major key J2 equal to major key J1? 
: IF SORTBUF(J2) EQ SORTBUF(J1) 
YES 









Have all major keys been examined? 
IF 2 EQ ENTRIES 





YES 
| Compute NENT of pointer table PTAB 
NENT(PTAB) = IMAX - 2 


FOR I = 0, 1, IMAX - 3 -, Coen: 







where LOCB = LOCBUF + JMAXS + J1 


| F Compute addresses for pointer table , 
: ; ~ LOCTAB(I) = LOCB + (I + 1)*JMAXS : i 


 ntiees aieimend 





Figure 4-8. SORTEM Detailed Flow Diagram (Sheet 1 of 2) 
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SORTEM SORTED 









'SORT(TCODE,1, J2-J1, LOCB, PTAB) 
Sort SORTBUF on minor key word 
between entries J1 and J2 


Is the minor sort completed? 
TF 02 EQ ENTRIES 







YES 
RETURN 


Figure 4-8. SORTEM Detailed Flow Diagram (Sheet 2 of 2) 
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8. REFERENCES 


1. See Reference 3. 
2. See Reference 3. 


3. Model 13 Documentation for CDC 3860, TM-4164/001/03, 
December, 1971. . 
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